home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Amiga
/
World of Amiga.iso
/
archive
/
assembly
/
b-block1.lha
/
BootBoy.s
< prev
next >
Wrap
Text File
|
1980-01-01
|
4KB
|
229 lines
; dc.w $444f
; subq.b #1,D0
; sbcd -(A2),-(A0)
GEIL:
move.l 0(A0,D0.W),112(A1,D0.W)
bsr.l START
move.l $000004,A6
lea DOSNAME(PC),A1
jsr -96(A6) ;duplock
move.l D0,A0
move.l 22(A0),A0
moveq #$00,D0
rts
DOSNAME: dc.b "dos.library",0
START:
move.l #$00010002,D1
move.l #$000206f8,D0
move.l $0004,A6
jsr -198(A6) ;delay
tst.l D0
beq.l NICKI
move.l A5,D1
move.l D0,A5
move.l D1,16(A5)
move.l D0,(A5)
move.l D0,4(A5)
move.l D0,8(A5)
move.l D0,12(A5)
addi.l #$00000028,(A5)
addi.l #$00000410,4(A5)
addi.l #$00003210,8(A5)
addi.l #$000206d0,12(A5)
lea COPPER(PC),A1
move.l 12(A5),8(A1)
lea TANJA(PC),A1
move.w 4(A5),4(A1)
move.w 6(A5),10(A1)
move.w $dff002,20(A5)
move.w #$8380,$dff096
move.w #$0020,$dff096
move.w #$4000,$dff09a
bsr.l SEPP
move.l $000004,A6
lea GFXNAME(PC),A1
jsr -408(A6) ;oldopenlibrary
move.l D0,A6
move.l (A5),A1
jsr -198(A6) ;initrastport
lea COPPER(PC),A0
move.l (A5),A1
move.l A0,4(A1)
STOP:
lea COPPER1(PC),A0
clr.w (A0)
lea TEXT(PC),A0
lea COPPER5(PC),A1
move.l A0,(A1)
move.l (A5),A1
move.l #$00000001,D0
jsr -354(A6) ;setdrmd
TTTT:
move.l (A5),A1
clr.l D0
move.l #$00000006,D1
jsr -240(A6) ;move
move.l (A5),A1
lea COPPER5(PC),A2
move.l (A2),A0
move.l #$00000002,D0
jsr -60(A6) ;text
MIST:
btst #6,$bfe001
beq.l SONJA
move.w $dff004,D0
swap D0
move.w $dff006,D0
asr.l #8,D0
andi.w #$01ff,D0
cmp.w #$00ce,D0
bne.l MIST
move.l 4(A5),A0
adda.l #$0000178a,A0
move.l 12(A5),A1
move.l #$00000007,D0
FUCK:
roxl.w (A1)+
bcc.l ROT
ori.w #$000f,-2(A0)
ori.w #$000f,44(A0)
ori.w #$000f,90(A0)
ori.w #$000f,136(A0)
bra.l TOP
ROT:
andi.w #$fff0,-2(A0)
andi.w #$fff0,44(A0)
andi.w #$fff0,90(A0)
andi.w #$fff0,136(A0)
TOP:
adda.l #$000000b8,A0
dbf D0,FUCK
move.l A0,A1
move.l #$00000003,D0
PIS:
move.l A1,A0
move.l #$000002df,D1
addi.l #$00000000,D1
WEIS:
roxl.w -(A0)
dbf D1,WEIS
dbf D0,PIS
lea COPPER1(PC),A0
addi.w #$0001,(A0)
cmpi.w #$0009,(A0)
bne.l MIST
clr.w (A0)
lea COPPER5(PC),A0
addi.l #$00000001,(A0)
move.l (A0),A1
cmpi.b #$00,(A1)
beq.l STOP
bra.l TTTT
SONJA:
move.w #$c000,$dff09a
move.w #$7fff,$dff096
move.l #$ffffffff,D0
ANJA:
dbf D0,ANJA
move.l 38(A6),$dff080
ori.w #$8000,20(A5)
move.w 20(A5),$dff096
move.l A5,A1
move.l 16(A5),A5
move.l #$000206f8,D0
move.l $0004,A6
jsr -210(A6) ;freemem
rts
SEPP:
move.l 8(A5),A0
move.l #$0000001f,D6
MOOS:
bsr.l TANJA
move.l A0,D5
addi.l #$0000000c,D5
move.w #$0082,(A0)+
move.w D5,(A0)+
swap D5
move.w #$0080,(A0)+
move.w D5,(A0)+
move.l #$fffffffe,(A0)+
dbf D6,MOOS
move.w 8(A5),-6(A0)
move.w 10(A5),-10(A0)
move.l 8(A5),$dff080
lea $dff000,A0
move.w #$2c71,142(A0)
move.w #$2ce1,144(A0)
move.w #$0024,260(A0)
move.w #$0028,146(A0)
move.w #$00d8,148(A0)
clr.w 258(A0)
clr.l 264(A0)
rts
TANJA:
move.l #$00e00003,(A0)+
move.l #$00e28730,(A0)+
move.l #$01001200,(A0)+
move.l #$2021fffe,D0
move.l #$0021fffe,D2
bsr.l KIES
move.l #$ffdffffe,(A0)+
move.l #$2b21fffe,D2
move.l #$0021fffe,D0
bsr.l RRRR
lea COP6(PC),A3
lea COPPER(PC),A1
move.w -2(A1),D2
move.w #$001f,D7
SHIT:
move.w -4(A1),-(A1)
dbf D7,SHIT
move.w D2,(A3)
rts
KIES:
lea COP6(PC),A1
lea COPPER(PC),A2
RRRR:
cmp.l D2,D0
beq.l NICKI
move.w #$0180,D1
move.w #$0182,D4
swap D4
swap D1
move.w (A1),D4
not.w D4
move.w (A1)+,D1
move.l D0,(A0)+
move.l D1,(A0)+
move.l D4,(A0)+
addi.l #$01000000,D0
cmpa.l A2,A1
beq.l KIES
bra.l RRRR
NICKI:
rts
COP6:
dc.l $fffffff1, $fff1fff3
dc.l $fff3fff5, $fff5fff7, $fff8fff8, $fff9fff9
dc.l $fffbfffb, $fffcfffe, $fffffffd, $fffcfff9
dc.l $fff7fff5, $fff4fff3, $fff3fff2, $fff2fff1
dc.l $fff1fff0, $fff0fff0
COPPER: dc.w $0002,$000a,$0001,$0000,$0005,$89f0
GFXNAME: dc.b "graphics.library",0
even
COPPER1: dc.w $0000,$0003
COPPER5: dc.w $0001,$f42c
TEXT:
dc.b "Contact <THE SLEDGE> FOR BRANDNEW STUFF IN PLK056056"
dc.b "B 8100 GARMISCH-PART. ",0